function showImage(sexo,nroimag, wPtr, dur)

% Funcion para mostrar una imagen durante un tiempo determinado
% sexo es una variable para tipo de imagen
% h=male , m=mujer  o=morph
% nroimag numero de imagen
% wPtr es la pantalla
% dur duration

switch lower(sexo)
    case 'h'
      narch='Stimuli/male/male'
   case 'm'
      narch='Stimuli/female/female'
   case 'o'
      narch='Stimuli/morph/morph'
    otherwise
return     
end

narch=strcat(narch,num2str(nroimag))

% lectura de la imagen 
img=imread(narch, 'JPG');

%Presentacion de la imagen

textureIndex=Screen('MakeTexture', wPtr, double(img));
Screen('DrawTexture', wPtr, textureIndex);
Screen(wPtr, 'Flip');

% Espera de dur

WaitSecs(dur)